56990 REM ENDIT #2 09/20/93
57000 DATA4,6,1,"T",5,6,1,"T",6,6,5,"T",7,6,1,"T",08,6,1,"T",10,6,5,"H"
57010 DATA11,08,1,"H",12,08,1,"H",13,6,5,"H",15,6,5,"E",16,6,1,"E"
57020 DATA16,08,1,"E",16,10,1,"E",17,6,1,"E",17,08,1,"E"
57030 DATA17,10,1,"E",18,6,1,"E",18,10,1,"E",21,13,5,"E",22,13,1,"E"
57040 DATA22,15,1,"E",22,17,1,"E",23,13,1,"E",23,15,1,"E"
57050 DATA23,17,1,"E",24,13,1,"E",24,17,1,"E",26,13,5,"N"
57060 DATA27,14,1,"N",28,15,1,"N",29,16,1,"N",30,13,5,"N",32,13,5,"D"
57070 DATA33,13,1,"D",33,17,1,"D",34,13,1,"D",34,17,1,"D",35,14,3,"D
57080 [131]0,0,0,"Z"
57090 SP$[178]"                                      ":[153]"LOAD"
57100 [151]214,1:[153]
57110 [129]X[178]1[164]21:[153]SP$:[130]X
57120 [151]53280,13:[151]53281,0
57130 [135]A,B,C,D$
57140 [139]D$[178]"Z"[167][153]"OPEN";:[128]
57150 [129]P[178]1[164]C
57160 [151]214,B[170]P:[153]:[153][163]A);
57170 CL[178][181]([187](1)[172]15)[170]1:[139]CL[178]0[167]57170
57180 [151]646,CL
57190 [153]D$:[130]P:[137]57130